home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / PROGRESS.WR_ / PROGRESS.WR
Text File  |  1998-10-22  |  2KB  |  85 lines
  1. #VRML V2.0 utf8
  2.  
  3. # Copyright Electrohouse 1998
  4.  
  5. # This file may not be copied, modified or distributed
  6. # in any way which violates the ProtoPak licensing 
  7. # agreement established by Electrohouse.  
  8.  
  9. EXTERNPROTO em7_ToString [
  10.     eventIn SFBool SFBoolValue
  11.     eventIn SFFloat SFFloatValue
  12.     eventIn SFInt32 SFInt32Value
  13.     eventIn SFString SFStringValue
  14.     eventIn SFTime SFTimeValue
  15.     eventIn SFVec2f SFVec2fValue
  16.     eventIn SFVec3f SFVec3fValue
  17.     eventIn SFColor SFColorValue
  18.     eventIn SFRotation SFRotationValue
  19.     eventIn MFFloat MFFloatValue
  20.     eventIn MFInt32 MFInt32Value
  21.     eventIn MFVec2f MFVec2fValue
  22.     eventIn MFVec3f MFVec3fValue
  23.     eventIn MFColor MFColorValue
  24.     eventIn MFRotation MFRotationValue
  25.     eventOut MFString MFStringResult
  26. ] "..\VR_COMMON.wrl#em7_ToString"
  27.  
  28. EXTERNPROTO em7_ProgressBar [
  29.     exposedField SFNode appearance
  30.     field SFFloat radius
  31.     field SFFloat height
  32.     field SFFloat percentageComplete
  33.     eventIn SFFloat set_percentageComplete
  34.     eventOut SFFloat percentageComplete_changed
  35. ] "..\VR_UI.wrl#em7_ProgressBar"
  36.  
  37.  
  38. DEF PROGRESS em7_ProgressBar { 
  39.     appearance Appearance { material Material { diffuseColor 0.2 0.4 0.8 } }
  40.     percentageComplete 0.33
  41. }
  42.  
  43. Transform {
  44.     translation 0 2 0    
  45.     children [
  46.         Shape {
  47.             appearance Appearance {
  48.                 material Material {
  49.                     diffuseColor 0.2 0.4 0.8
  50.                     transparency 0.5
  51.                 }
  52.             }
  53.             geometry Box {}
  54.         }
  55.         DEF TOUCH TouchSensor {}
  56.     ]
  57. }
  58.  
  59. Transform {
  60.     translation 0 -1 0    
  61.     children [
  62.         Shape {
  63.             geometry DEF VALUE_TEXT Text {
  64.                 fontStyle FontStyle {
  65.                     justify "MIDDLE"
  66.                 }
  67.             }
  68.         }
  69.     ]
  70. }
  71.  
  72. DEF TIME TimeSensor {
  73.     enabled TRUE
  74.     cycleInterval 6
  75.     loop FALSE
  76. }
  77.  
  78. DEF TO_STRING em7_ToString {}
  79.  
  80.  
  81. ROUTE TOUCH.touchTime TO TIME.set_startTime
  82. ROUTE TIME.fraction_changed TO PROGRESS.set_percentageComplete 
  83. ROUTE PROGRESS.percentageComplete_changed TO TO_STRING.SFFloatValue
  84. ROUTE TO_STRING.MFStringResult TO VALUE_TEXT.set_string
  85.